home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 January / 1988-01.d64 / three pack (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  806b  |  19 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 20 print"[147][144]   copyright 1988 compute! pub., inc."
  3. 30 printtab(10)"all rights reserved":print"activating three pack..."
  4. 40 fori=53121to53247:reada:x=x+a:pokei,a:next
  5. 50 ifx<>19218thenprint"error in data statements.":end
  6. 60 data 32,185,207,201,25,176,61,133,251,32
  7. 70 data 185,207,201,40,176,52,133,211,165,251
  8. 80 data 133,214,76,108,229,32,185,207,133,253
  9. 90 data 32,185,207,240,33,133,254,24,101,253
  10. 100 data 201,26,176,24,166,253,32,255,233,230
  11. 110 data 253,198,254,208,245,96,32,253,174,32
  12. 120 data 158,173,32,247,183,165,20,96,76,72
  13. 130 data 178,169,0,133,253,169,212,133,254,160
  14. 140 data 1,169,50,145,253,160,5,169,9,145
  15. 150 data 253,160,24,169,15,145,253,160,4,169
  16. 160 data 17,145,253,169,200,133,252,162,0,202
  17. 170 data 208,253,198,252,208,249,160,0,152,145
  18. 180 data 253,200,192,24,208,249,96
  19.